'Show and convert AMF-files in GEM, CGM and EPS-files.\nWritten in E by Henk Jonas.\nBinarys and sources are Public Domain.\n\nThe CDR-part are still in progress.',
'Can`t found!',
'Can`t save!',
'Warning!\nSome Errors in AMF-file.',
'Warning!\nSome Errors in AMF-file.',
NIL
],number),
'OK'],NIL,NIL)
ENDPROC
/**/
PROC main()
DEF wb:PTR TO wbstartup,args:PTR TO wbarg,wbargs=FALSE,amffile
IF wb:=wbmessage
args:=wb.arglist
IF wb.numargs>1
args++
NameFromLock(args.lock,filename,255)
AddPart(filename,args.name,255)
wbargs:=TRUE
ENDIF
ENDIF
IF openscreen()
IF amigametaformatbase:=OpenLibrary('amigametaformat.library',2)
IF iffparsebase:=OpenLibrary('iffparse.library',37)